home *** CD-ROM | disk | FTP | other *** search
- PROGRAM metric;
- VAR
- value : REAL;
- selection : INTEGER;
- finish : BOOLEAN;
-
- PROCEDURE inches_to_centimeters;
- CONST
- centperinch = 2.54;
- BEGIN
- WRITELN(value:1:2, ' inches = ', value * centperinch:1:2,
- ' centimeters');
- END; {Proc to convert inches to centimeters }
-
- PROCEDURE centimeterstoinches;
- CONST inchespercent = 0.3937;
- BEGIN
- WRITELN(value:0:2,' centimeters = ',
- value * inchespercent:0:2,' inches');
- END;
-
- PROCEDURE feettometers;
- CONST meterstofoot = 0.3048;
- BEGIN
- WRITELN(value:1:2,' feet = ',value * meterstofoot:1:2,' meters');
- END;
-
- PROCEDURE meterstofeet;
- CONST feettometers = 3.28084;
- BEGIN
- WRITELN(value:1:2,' meters = ',value*feettometers:1:2,' feet');
- END;
-
- PROCEDURE milestokilometers;
- CONST kilometerstomiles = 1.609;
- BEGIN
- WRITELN(value:1:2,' miles = ',value*kilometerstomiles:1:2,' kilometers');
- END;
-
- PROCEDURE kilometerstomiles;
- CONST milestokilometers = 0.621;
- BEGIN
- WRITELN(value:1:2,' kilometers = ',value*milestokilometers:1:2,' miles');
- END;
-
- procedure done;
- var A : char;
- begin
- writeln;
- writeln;
- writeln('Want to do it again? Y/N? ');writeln;
- readln(A);
- finish := ( A <> 'Y') and ( A <> 'y');
- end;
-
-
- BEGIN
- REPEAT
- CLRSCR;
- WRITELN( ' METRIC CONVERSION PROGRAM ');
- WRITELN;
- WRITELN;
- WRITELN('State The Value To Convert');
- READLN(value);
- WRITELN;
- WRITELN;
- WRITELN('1 - Inches to centimeters');
- WRITELN;
- WRITELN('2 - Centimeters to inches');
- WRITELN;
- WRITELN('3 - Feet to meters');
- WRITELN;
- WRITELN('4 - Meters to feet');
- WRITELN;
- WRITELN('5 - Miles to kilometers');
- WRITELN;
- WRITELN('6 - kilometers to miles');
- WRITELN;
- WRITELN('7 - QUIT');
- WRITELN;
- WRITE( 'Selection? '); READLN( selection );
- WRITELN;
- CASE selection OF
- 1: inches_to_centimeters;
- 2: centimeterstoinches;
- 3: feettometers;
- 4: meterstofeet;
- 5: milestokilometers;
- 6: kilometerstomiles;
- 7: finish := true;
- ELSE WRITELN( 'Selection error');
- END; {to close "case" "of" portion}
- done;
- until FINISH;
-
-
- END.